home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 November / Chip Kasım 2001.iso / prog / cdcode / xsetup / SETUP.EXE / {app} / plugins / XQ QuickLaunch 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2000-12-13  |  1.8 KB  |  60 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Taskbar\"
  5. "NAME"="QuickLaunch Bar Show Desktop link"
  6. "VERSION"="1.21"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Create "Show Desktop" link"
  9. "DESCRIPTION 1"="If you have deleted the "Show Desktop" link in your Quick Launch bar, click the first button to create it again."
  10. "DESCRIPTION 2"="The Quick Launch bar is installed with the ActiveDesktop feature of Internet Explorer 4.X and above."
  11. "DESCRIPTION 3"="NOTE: You can also use WINDOWS KEY+D as a keyboard shortcut to show the desktop. If this suits you better, you don't need this link."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16. "COMMENT 2"="Thanks to Umesh Reghuram (umesh@home.com) for the spelling-fix."
  17.  
  18.  
  19. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\AppData"
  20. sPath1="\Microsoft\Internet Explorer\Quick Launch\Show Desktop.scf"
  21.  
  22. Sub Plugin_Initialize 
  23.  s=RegReadValue(sV1)
  24.  if IsEmpty(s)=false then
  25.     'OK!
  26.  else
  27.     Disable
  28.  end if
  29.  
  30. End Sub
  31.  
  32. Sub Plugin_CheckData(ElementIndex)
  33. End Sub
  34.  
  35. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  Select Case ElementIndex
  37.  Case 1
  38.   s=RegReadValue(sV1)
  39.   if IsEmpty(s)=false then
  40.      s=s & sPath1
  41.  
  42.      'Let's write the file!!!
  43.      Call IniWriteValue(s,"Shell","Command","2")
  44.      Call IniWriteValue(s,"Shell","IconFile","explorer.exe,3")
  45.      Call IniWriteValue(s,"Taskbar","Command","ToggleDesktop")
  46.      'I'm sometimes simply TOOO kidding...
  47.      Call IniWriteValue(s,"Xteq","Comment","This file created with Xteq Systems's X-Setup")
  48.  
  49.   else
  50.      Call MsgError("Unable to read AppData value from registry - maybe ActiveDesktop is not installed")
  51.   end if
  52.  
  53.  
  54.  Case 2
  55.  End Select
  56. End Sub
  57.  
  58. Sub Plugin_Terminate 
  59. End Sub
  60.